Notes

Disk info for Copts_and_Robbers_1981_Sirius_Software.do:

File Name: a2_Copts_and_Robbers_1981_Sirius_Software/Copts_and_Robbers_1981_Sirius_Software.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 91136
Used Space (bytes): 52224
Physical Size (KB): 140
Free Space (KB): 89
Used Space (KB): 51
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 356
Used Sectors: 204
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for Copts_and_Robbers_1981_Sirius_Software.do:

a2_Copts_and_Robbers_1981_Sirius_Software/Copts_and_Robbers_1981_Sirius_Software.do DISK VOLUME #254
* A 005 HELLO
* B 135 COPTS AND ROBBERS
DOS 3.3 format; 91,136 bytes free; 52,224 bytes used.

Text found in Copts_and_Robbers_1981_Sirius_Software.do/HELLO.bas:

100 TEXT : HOME :D$ = CHR$(4): PRINT D$"CATALOG":B = PEEK(37) -2: IF B >22 THEN B = 22
102 VTAB 3: PRINT " "
110 T = 0:CH = 5: FOR CV = 0 TO 23: GOSUB 1000: IF C < >160 THEN POKE P -2,219: POKE P -1,T +193: POKE P,221:T = T +1:S = CV
120 NEXT CV: VTAB 24:A$ = "TYPE LETTER TO RUN, OR LOAD=1 LOCK=2 UNLOCK=3 DELETE=4 EXIT=5....":B$ = "RUN"
130 HTAB 1: PRINT LEFT$(A$,39);:A$ = MID$ (A$,2) + LEFT$(A$,1):K = PEEK( -16384): IF K <128 THEN FOR K = 1 TO 75: NEXT K: GOTO 130
140 POKE -16368,0:K = K -176: IF K <1 OR K >T +17 OR K >5 AND K <17 THEN 130
150 IF K >5 THEN 300
160 HTAB 1: CALL -868: PRINT "PRESS 'LETTER' YOU WISH TO ";: IF K = 1 THEN B$ = "LOAD"
170 IF K = 2 THEN B$ = "LOCK"
180 IF K = 3 THEN B$ = "UNLOCK"
190 IF K = 4 THEN B$ = "DELETE": FLASH
200 IF K = 5 THEN END
210 PRINT B$;: CALL -198: NORMAL : GET K$:K = ASC(K$) +128
220 POKE -16368,0:K = K -176: IF K <1 OR K >T +17 OR K >5 AND K <17 THEN B$ = "RUN": GOTO 130
300 PRINT :CH = 1:CV = S -T +K -17: GOSUB 1000: IF C = 194 AND (B$ = "RUN" OR B$ = "LOAD") THEN B$ = "B" +B$
310 PRINT D$;B$;: FOR CH = 7 TO 39: GOSUB 1000: PRINT CHR$(C);: NEXT CH: PRINT : GOTO 100
1000 C1 = INT(CV/8):C2 = CV -C1 *8:P = 1024 +128 *C2 +40 *C1 +CH:C = PEEK(P): RETURN